Run Magazine ReRun 1989 November & December/rerun-1989-11-12.d64/make 1581 usr

Commodore BASIC | 2022-09-20 | 1KB | 22 lines

10 print chr$(147):print "     copyright 1989 sogwap software"
20 print:print "make 1581 directory speed load usr file"
30 print:print "       written by michael miller":print:print
40 dv=9:input "create usr file on drive number";dv
50 print:print "insert disk into drive #";dv:print:print ,"-press any key-"
60 get x$:if x$="" then 60
70 print chr$(147);"writing 1581 usr file...":print
80 a$="":for i=1 to 172:read a:cs=cs+a:a$=a$+chr$(a):next
90 if cs<>14933 then print "error in data statements":stop
100 open 15,dv,15:open 8,dv,8,"1581,u,w":print#8,a$;:input#15,e,em$:close 8
110 print e;em$:print "done!":close 15:end
200 data 0,5,168,96,234,234,234,234,234,120,169,2,141,1,64,234,165,76
210 data 174,139,2,133,11,134,12,162,0,169,128,32,84,255,165,2,201,2
220 data 176,50,160,254,173,0,3,208,4,172,1,3,136,132,16,152,32,112
230 data 5,160,2,185,0,3,32,112,5,200,198,16,208,245,169,2,141,1
240 data 64,173,1,64,48,15,174,1,3,173,0,3,208,191,240,2,169,255
250 data 32,112,5,88,96,0,0,0,0,0,8,2,10,4,12,6,14,1
260 data 9,3,11,5,13,7,15,162,0,142,1,64,170,74,74,74,74,72
270 data 138,41,15,170,189,96,5,170,169,4,44,1,64,208,251,142,1,64
280 data 138,10,41,15,72,104,141,1,64,104,170,189,96,5,234,141,1,64
290 data 10,41,15,72,104,141,1,64,96,199